SOUNDS:
  PALETTE 0,0,0,0
  PALETTE 1,1,1,1
  PALETTE 2,0.5,0.3,0.2
  COLOR 3,0
  CLS
  PRINT"SOUNDS   1988 by Leuolyasoft"
  LOCATE 4,1:PRINT"1 Phone-Call"
  LOCATE 6,1:PRINT"2 Car"
  LOCATE 8,1:PRINT"3 Random"
  LOCATE 10,1:PRINT"4 Electric Current"
  LOCATE 12,1:PRINT"5 Pulse"
  LOCATE 14,1:PRINT"6 Up"
  LOCATE 16,1:PRINT"7 Down"
  LOCATE 18,1:PRINT"8 Space"
  LOCATE 20,1:PRINT"9 Down II"
E:  
  WHILE a$="":a$=INKEY$:WEND
  a=ASC(a$)-48
  a$=""
  IF a<1 OR a>9 THEN E
  ON a GOSUB s3,s9,s12,s5,s10,s1,s2,s13,s14
  GOTO E

'***Up***
s1:
  FOR t=1 TO 10
    SOUND t*100,1
  NEXT 
RETURN  
'***Down***
s2:
  FOR t=10 TO 1 STEP-0.5
    SOUND 50*t,0.5   
  NEXT
RETURN  

'***Phone-Call***
s3:
  SAY a$
  FOR t=1 TO 5
    SOUND 500,20
     FOR t1=1 TO 5000:NEXT
  NEXT
'Bell
 WHILE x<6
    FOR t=1 TO 12
     SOUND 2000,1:SOUND 1000,0.5
    NEXT
    FOR t=1 TO 5000:NEXT:x=x+1
  WEND  
    x=0
'Voice
    a$="/HEHLOW"
    SAY a$
RETURN

'***Electric Current***
s5:
  FOR t=1 TO 1000
   SOUND 100,0.1
  NEXT t   
RETURN

'***Aen Rieseschock***
s6:
  FOR t1=1 TO 5
  FOR t=1 TO 80
    SOUND t*10+500,0.1
  NEXT t
  NEXT t1     
 FOR t1=1 TO 10
  FOR t=6000 TO 100 STEP-100
    SOUND t,0.1
  NEXT
 FOR t2=1 TO 100:NEXT
 
 NEXT


'***Car***
s9:
  x=255:x1=350
FOR t1=1 TO 4  
  FOR t=x TO x1
    SOUND t,1
  NEXT
  FOR t=350 TO 200 STEP -1
    SOUND t,0.15
  NEXT 
  x=x+10:x1=x1+10
NEXT t1
x=0:x1=0
RETURN

s10:
 FOR t1=1 TO 10  
   FOR t=100 TO 200 
     SOUND t,0.1
   NEXT
  NEXT
RETURN  

'***Random***
s12:
  FOR t=1 TO 100
    SOUND INT(1000*RND),1
  NEXT
RETURN

'***Space***
s13:
RESTORE
FOR t1=1 TO 8  
  READ x1,x2,x
  FOR t2=1 TO 10
    FOR t=x1 TO x2 STEP x
      SOUND t,0.2
    NEXT t
  NEXT t2  
NEXT t1
RETURN
DATA  1000,200,-100,500,100,-50,2000,0,-200,1000,2000,100
DATA  1500,3000,200,1000,300,-50   
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0            

'***Down II***
s14:
  x=1
  FOR t=1 TO 12
    FOR t1=1 TO 3
      SOUND 250-x,0.4
      SOUND 350-x,0.4
      SOUND 500-x,0.4
      SOUND 650-x,0.4
   NEXT t1
  x=20*t
  NEXT t
RETURN      
    
' 1988 by Leuolyasoft